home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Hamster.EXE / HScores.vbs < prev    next >
Encoding:
Text File  |  1999-04-25  |  567 b   |  22 lines
  1. 'HScores.vbs
  2.  
  3. 'Get commandline-parameters
  4. Set objArgs = Wscript.Arguments
  5. If objArgs.Count<1 Then
  6.    Wscript.Echo "HScores.vbs: Show group-specific scorelist"
  7.    Wscript.Echo "Usage: cscript HScores.vbs groupname"
  8.    Wscript.Quit
  9. Else
  10.    GroupName = objArgs(0)
  11. End If
  12.  
  13. 'Initialize Hamster-object
  14. Set Hamster = Wscript.CreateObject( "Hamster.App" )
  15.  
  16. 'Get group-specific scorelist
  17. Wscript.Echo "Scorelist for " + GroupName + ":" + vbCrLf
  18. Wscript.Echo Hamster.NewsScoreListFor( GroupName ) 
  19.  
  20. 'Release Hamster-object
  21. Wscript.DisconnectObject Hamster
  22.